examples/demonstrations/env automation.scd

   1
   2 (
   3 SynthDef("env", { arg i_outbus=0;
   4         var env, envctl;
   5
   6         // make a dummy 8 segment envelope
   7         env = Env.newClear(8);
   8
   9         // create a control argument array
  10         envctl = Control.names([\env]).kr( env.asArray );
  11
  12         ReplaceOut.kr(i_outbus, EnvGen.kr(envctl, doneAction: 2));
  13 }).add;
  14
  15
  16 SynthDef("sine", {
  17         Out.ar(0, SinOsc.ar(In.kr(0), 0, 0.2));
  18 }).add;
  19 )
  20
  21 s.sendMsg(\c_set, 0, 800);
  22
  23 s.sendMsg(\s_new, \sine, 1001, 1, 0);
  24
  25 e = Env([700,900,900,800], [1,1,1]*0.4, \exp).asArray;
  26 s.sendBundle(nil,[\s_new, \env, 1002, 2, 1001],[\n_setn, 1002, \env, e.size] ++ e);
  27
  28 f = Env([1000,1000,800,1000,900,1000], [1,1,1,1,1]*0.3, \step).asArray;
  29 s.sendBundle(nil,[\s_new, \env, 1003, 2, 1001],[\n_setn, 1003, \env, f.size] ++ f);
  30
  31 s.sendMsg(\n_free, 1001);